(file-name-non-special): Handle return value of t from

`file-name-completion'.

diff --git a/lisp/files.el b/lisp/files.el
index c71dd806f6dc74db94442533417a8e3040290ef9..c4e3e8c3760900326e4b1fc726464f9ebdc95be8 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3943,7 +3943,7 @@ With prefix arg, silently save all file-visiting buffers, then kill."
        (car arguments)
       (let ((value (apply operation arguments)))
        (cond ((memq operation '(file-name-completion))
-              (and value (concat "/:" value)))
+              (and value (if (eq value t) t (concat "/:" value))))
              ((memq operation '(file-name-all-completions))
               (mapcar (lambda (name) (concat "/:" name)) value))
              (t value))))))